`predLik` <-
function(obj) {
    obj$PL[length(obj$PL)];
}

